home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Assess.Dxr / Internal_3_part1 submenu handlers.ls < prev    next >
Encoding:
Text File  |  1998-04-24  |  1.8 KB  |  88 lines
  1. global gMasterData, checkMarks1, balloonSprite
  2.  
  3. on bigButtons thisSprite
  4.   leavePart1()
  5.   case thisSprite of
  6.     3:
  7.       goStyle()
  8.     4:
  9.       startHistory()
  10.     5:
  11.       startReactions()
  12.     6:
  13.       goPRintro()
  14.     7:
  15.       goCorners()
  16.   end case
  17. end
  18.  
  19. on firstPart1
  20.   go(label("part1") - 1)
  21.   goNarrator(gMasterData, "03")
  22.   setFingerCursor(#on, [3, 4, 5, 6, 7])
  23.   setCheckMarks()
  24.   puppetSprite(balloonSprite, 1)
  25. end
  26.  
  27. on setUpPart1
  28.   setUserArea(gMasterData, #subMenu)
  29.   go(label("part1"))
  30.   setFingerCursor(#on, [3, 4, 5, 6, 7])
  31.   setCheckMarks()
  32.   puppetSprite(balloonSprite, 1)
  33.   bkgrdMusic(gMasterData)
  34. end
  35.  
  36. on leavePart1
  37.   stopSound2()
  38.   setFingerCursor(#off, [3, 4, 5, 6, 7])
  39.   setPuppetState([15, 19], #c, 0)
  40.   puppetSprite(balloonSprite, 0)
  41.   set the timeoutScript to EMPTY
  42. end
  43.  
  44. on setCheckMarks
  45.   setPuppetState([15, 19], #c, 1)
  46.   set Xart to 15
  47.   set checkpoints to [point(591, 31), point(591, 120), point(591, 211), point(591, 301), point(591, 390)]
  48.   repeat with X = 1 to count(checkMarks1)
  49.     if getAt(checkMarks1, X) = 1 then
  50.       set the loc of sprite Xart to getAt(checkpoints, X)
  51.     else
  52.       set the loc of sprite Xart to point(-1000, -1000)
  53.     end if
  54.     set Xart to Xart + 1
  55.   end repeat
  56.   updateStage()
  57.   promptToGoOn()
  58. end
  59.  
  60. on promptToGoOn
  61.   set vTally to 0
  62.   set vTotal to count(checkMarks1)
  63.   repeat with vProp = 1 to vTotal
  64.     if getAt(checkMarks1, vProp) = 1 then
  65.       set vTally to vTally + 1
  66.     end if
  67.   end repeat
  68.   if vTally > 0 then
  69.     activate(gMasterData)
  70.   end if
  71.   case vTally of
  72.     0:
  73.       set the timeoutLength to 30 * 60
  74.       set the timeoutScript to "clickDummy1"
  75.     vTotal:
  76.       set the timeoutLength to 30 * 60
  77.       set the timeoutScript to "clickDummy2"
  78.   end case
  79. end
  80.  
  81. on clickDummy1
  82.   puppetSound("clik2begin.aif")
  83. end
  84.  
  85. on clickDummy2
  86.   puppetSound("gobkmain.aif")
  87. end
  88.